program main_tes
	implicit none
	DOUBLE PRECISION contoh
	external contoh, simpson_1_per_3
	DOUBLE PRECISION a, b, I
	integer*2 n
	a = 0
	b = 1
	n = 8
	call simpson_1_per_3(a, b, n, I, contoh)
	print*,"Solusi ",I
end